From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 28 Dec 2013 17:12:57 +0000 (+0200)
Subject: Fix a thinko in last commit.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~1730
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=8962d4b30037c223af0026707fa35c9cf85c7e57;p=emacs.git

Fix a thinko in last commit.
---

diff --git a/src/w32fns.c b/src/w32fns.c
index 5ecddbc11d3..31c2aa58620 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -4346,7 +4346,8 @@ This function is an internal primitive--use `make-frame' instead.  */)
   Lisp_Object parent;
   struct kboard *kb;
 
-  if (!FRAME_W32_P (SELECTED_FRAME ()))
+  if (!FRAME_W32_P (SELECTED_FRAME ())
+      && !FRAME_INITIAL_P (SELECTED_FRAME ()))
     error ("Cannot create a GUI frame in a -nw session");
 
   /* Make copy of frame parameters because the original is in pure